1 REM TURTLE-DEMO: 'UNORDNUNG'
2 REM N. HEUSLER 11.91
3 :
10 SYS49152
20 INPUT"RECHTECKGROESSE   20[157][157][157][157]";H:DX=320/H-1:DY=200/H-1
30 INPUT"MAX. VERDREHUNG   45[157][157][157][157]";M
40 INPUT"MAX. TRANSLATION  15[157][157][157][157]";T
90 !INIT:!GRAPHICS
100 FORY=.TODY-1
110 FORX=.TODX-1
120 !PEN0:!MOVEX*H+T*RND(TI)*X/DX,Y*H+T*RND(TI)*X/DX:!ANGLE270
130 !TURNRM*RND(TI)*X/DX
140 !PEN1
150 FORQ=1TO4
160 !WALKH-1:!TURNR90:NEXT
200 NEXT
210 NEXT
300 !WINDOW217
310 PRINT" ES IST SCHON ERSTAUNLICH,  WAS MAN MIT
320 [153]" HILFE DIESER EINFACHEN  TURTLE-BEFEHLE
330 PRINT" PRAKTISCH  OHNE  ARBEITSAUFWAND  ALLES
340 [153]" MACHEN KANN - GANZ LEICHT!
350 !FINISH